home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Windows Game Programming for Dummies (2nd Edition)
/
WinGamProgFD.iso
/
mac
/
DirectX SDK
/
DXSDK
/
samples
/
Multimedia
/
VBSamples
/
DirectPlay
/
Conferencer
/
frmJoinRequest.frm
< prev
next >
Wrap
Text File
|
2001-10-08
|
4KB
|
113 lines
VERSION 5.00
Begin VB.Form frmJoinRequest
BorderStyle = 3 'Fixed Dialog
Caption = "Receiving a call...."
ClientHeight = 975
ClientLeft = 45
ClientTop = 330
ClientWidth = 4680
ControlBox = 0 'False
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 975
ScaleWidth = 4680
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton cmdReject
Cancel = -1 'True
Caption = "Reject"
Height = 315
Left = 3420
TabIndex = 3
Top = 120
Width = 1155
End
Begin VB.CommandButton cmdAccept
Caption = "Accept"
Default = -1 'True
Height = 315
Left = 3420
TabIndex = 2
Top = 540
Width = 1155
End
Begin VB.Label lblFriend
BackStyle = 0 'Transparent
Height = 195
Left = 720
TabIndex = 1
Top = 420
Width = 2115
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "You are receiving a call from"
Height = 195
Left = 720
TabIndex = 0
Top = 180
Width = 2115
End
Begin VB.Image Image1
Height = 480
Left = 120
Picture = "frmJoinRequest.frx":0000
Top = 180
Width = 480
End
End
Attribute VB_Name = "frmJoinRequest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' Copyright (C) 1999-2001 Microsoft Corporation. All Rights Reserved.
'
' File: frmJoinRequest.frm
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private mlPlayerID As Long
Private msPlayername As String
Private moForm As frmNetwork
Public Sub SetupRequest(oForm As frmNetwork, ByVal lPlayerID As Long, ByVal sPlayerName As String)
Set moForm = oForm
mlPlayerID = lPlayerID
msPlayername = sPlayerName
lblFriend.Caption = sPlayerName
End Sub
Private Sub cmdAccept_Click()
Dim lMsg As Long, lOffset As Long
Dim oBuf() As Byte
'Accept this connection
lMsg = MsgAcceptJoin
lOffset = NewBuffer(oBuf)
AddDataToBuffer oBuf, lMsg, LenB(lMsg), lOffset
dpp.SendTo mlPlayerID, oBuf, 0, DPNSEND_NOLOOPBACK
moForm.UpdatePlayerList
'Notify everyone that this player has joined
lMsg = MsgNewPlayerJoined
lOffset = NewBuffer(oBuf)
AddDataToBuffer oBuf, lMsg, LenB(lMsg), lOffset
dpp.SendTo DPNID_ALL_PLAYERS_GROUP, oBuf, 0, DPNSEND_NOLOOPBACK Or DPNSEND_GUARANTEED
Unload Me
End Sub
Private Sub cmdReject_Click()
Dim lMsg As Long, lOffset As Long
Dim oBuf() As Byte
'Reject this connection
lMsg = MsgRejectJoin
lOffset = NewBuffer(oBuf)
AddDataToBuffer oBuf, lMsg, LenB(lMsg), lOffset
dpp.SendTo mlPlayerID, oBuf, 0, DPNSEND_NOLOOPBACK
Unload Me
End Sub